;; (use-modules (guix records))

;; (define-record-type* <sway-bindsym>
;;   sway-bindsym make-sway-bindsym
;;   sway-bindsym?
;;   (key-combo sway-bindsym-key-combo
;;              (default "")))

;; (display sway-bindsym)  ;; compile error at unknown location


(define-syntax when
  (syntax-rules ()
    ((when condititon exp ...)
     (if condititon
         (begin exp ...)))))

(when #t (display "Hello\n"))

(display when)
